home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 1709copy.txt < prev    next >
Encoding:
Text File  |  1996-03-07  |  1.3 KB  |  41 lines
  1. If newtitle = TRUE then
  2. Eval("EraseDisplay(@" ^ title number ^ ")")
  3. Title number = "1709"
  4. Company = "Acclaim"
  5. title = "Myst"
  6. Price = 29.99
  7. Demo = false
  8. Button1 = false
  9. Button2 = false
  10. Button3 = false
  11. Button4 = false
  12. system = "Saturn"
  13. Title Description = "Get lost in the worlds of Myst. Use your mind to unlock the secrets of ages
  14. past. Take careful notes. Everything you see or hear, no matter how insignificant, could be the
  15. key to unlocking the mystery. Walk thorugh stunning 3D photo-realistic graphcs with a
  16. first-person point of view."
  17.  
  18.  
  19. -----------------------------------
  20. dline = ""
  21. counter = 0
  22. repeat while dline <> title number
  23. counter = counter + 1
  24. dline = GetWord(1, GetLine(titl,counter))
  25. test(dline = title number, LineInTitle = counter)
  26. end repeat
  27. starttitle = LineInTitle
  28. num of titles shown = 6
  29. endtitle = starttitle + num of titles shown - 1
  30. titles = ""
  31. title highlight = ""
  32. repeat with counter = starttitle to endtitle
  33. nextline = GetLine(titl, counter)
  34. titles = titles ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return
  35. title highlight = Test(title number = GetWord(1, nextline), titlehighlight ^ SubStr(nextline, 6,
  36. CharCount(nextline)) ^ Return, title highlight ^ Return)
  37. end repeat
  38. dpage = CurrentPageID
  39. newtitle = FALSE
  40. end if
  41.